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be 
MAILCOMPRESS.COM = Compress mail file by username 
ABSTRACT: geepls command procedure to compress 


ISAM files for a single user 
or list of users. 


REQUIRED PRIVILEGES: 
BYPASS, EXQUOTA or SETPRV 
INPUT: Input can be specified in two forms: 


° Username whose default MAIL ISAM 
file is to be compressed. 


° @FILENAME where FILENAME is the 
file-spec of a file which contains 
a list of usernames whose default 
MAIL ISAM files are to be compressed. 


Either form of input may be specified 
on the command Line, wever, if 
"QFILENAME'' is specified on the command 
ne it MUST be enclosed in double 
quotes. 


OUTPUT: New default MAIL ISAM file of a smaller 
size. 


IMPLICIT OUTPUT: 
Old default MAIL ISAM file is deleted. 
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set = *SET” 

if Sw | abe 
open = ‘OPEN’ 
goto = 'GOTO"' 
read = “REA 
write = "WRITE | 
convert = “CONVERT 
delete = ‘DELETE’ 
close = ‘CLOSE 
exit = “EXIT 


no_compression needed size = 40 ; ; 
time_stamp = fScvtimet’”’,"‘COMPARISON'’,"'DATETIME'’) 
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old_verify = f$verify() 

set noon 

required_privileges = ‘‘BYPASS,EXQUOTA" 

PT labt, foriyllegeteeetired Brivilastel then got ivil 
not. f$privilege(required privileges en goto no_privileges 

def_dev_dir = HSengironnent( DEFAULT"? . , ’ 

open /read /share uaf sys$system:sysuaf.dat 

open /read /share vmai sys$system:vmsmail.dat 

cmd_file = 0 0 

4 r 


aram — = 
f f$Teng niet) -eq. 0 then goto get_username 
username = p 

param _flag = 1 
; goto TOS 


Prompt for username 


get_username: 
open, cal fats sty “at 
close_delimit = ‘’]' 
dir_close delimit = ‘']"' 
if cmd_file then goto 20$ 


if param uae then goto exit_procedure 
sexit 


; 
i 
! 
‘ 
' 
; 
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1 read /end procedure /prompt="Username: '' sys$command username 
"username = fSedit (username,'’COLLAPSE ,UNCOMMENT ,UPCASE"’) 
if fSlength(username) .eq. 0 then goto get_username 
if teextract (0.1 .usernane) -nes. ‘‘a’’ then goto 100$ 
c e= 
username = f$extract(1,99,username) 
208 open /read /error=cant_open cmdf ‘username’ 
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read /end=cmd_file_eof /prompt="USERNAME> °' cmdf username 
username = f$edit (username, ‘COLLAPSE ,UNCOMMENT ,UPCASE"') 
if fSlength(username) .eq. 0 then goto 10$ 


} Get mail directory for USERNAME 


100$: 
read /nolock /error=no_user /key=""" ‘username 
dir_len = f$cvui(32*8,8,uaf_recor 
dirtstring = fSextract(149,dir_len,uaf_record) 
temp_string = fSedit(dir string, COLLAPSE’) 
if remp-string,..€ s. ‘"’ then goto bad_spec 
if f$locate('T''.dir_string) .ne. dir_Ten then goto okay_delimit 
dir_close_ delimit ="'>' 
kay_delimit: 
dir_string = dir_string - dir_close_delimit 
dev_len = f$cvuil64e8, vat record) 
dev-string = f$extract({17,dev_len-1,uaf_ record) 
temp_string = fSedit(dev_ string,’ COLLAPSE’’) 
if témp_string .eqs. ‘"' Ehen goto bad_spec 
vane! -reford = 
= 


uaf uaf_record 


ma 
read /nolock /error=110$ /key=""" ‘username 


vmai vmai_record 
110$: 


120$: 
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YSTEM 


FILE 
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if fSlength(vmai 7e8c8R. -eq. 0 onan goto 120% 
mail_len = f$cvul(6 HF b 8. yma. ne gh 
personal_len = sods’) i (G68 van record) 
forward Ten = 
mail = extrac real ; saramket raat forward_len,mail_ len,vmai_record) 
if fSlocate(’ 5 ah L) .ne. mail_len then“goto 120 
open. delimit = ''<" 
ose_delimit = 5 


f “hail nes. —¢ ."ae =mail= open_delimit = close_delimit 
mail_dir = dev_str ma.* string + Lenip + dir_close_delimit 

mail“dir = tSedit(ma L “an COLLA SE*') 

write sys$output ' 

write sys$Soutput ‘Processing directory ‘'mail_dir' for user ‘‘username 


Compress mail file 


set default ‘maildir' 

if f$search('MAIL.MAI"') .eqs. oto no mail_file 
create_time = Stile vactrigates (MALT "MA ~s oer oe 

create_time = f$cvtime(create et ime, COMPARISON, “"DATETIME’') 

if create time .gts. time_stamp then goto already compressed 

' VERIFY THERE'S A MAIL.MAI FILE, THAT IT'S INDEXED WITH 2 KEYS. 
! CHECK TO SEE THAT DISK HAS ENOUGH SPACE FOR THE COMPRESS. 


it (f$file_attributes(’MAIL.MAI'',"ORG'') .nes. “IDX') wor. = 
(f$file_attributes('MAIL.MAI'’,"‘NOK'') .ne. 2) = 

then goto not_mail_file 

old_ size = f$file "attributes(’ ‘MAIL.MAI"', "‘ALQ’') 


7 Heer etian. MAIL.MAI IS LARGE ENOUGH TO WARRANT 
if old size .lt. no_compression_needed size then $goto too_small 
free abtks = rete, olds S$D1ISK'",'‘FREEBCOCKS"’) 

a ze * 3 Me re no_space 


; 
: COM gs HE F IF ERR 
! DISPLAY Of DYNENURECEATRED sizes, “DELETE OLD FILE, ENSURE CORRECT 
FILE OWNERSHIP. 


o 
v 
2 
ne 
“oe 


4 
convert /fdl=sys$input mail.mai mail.mai 


SOURCE VAX/VMAS 
ALLOCATION 34 
BEST_TRY_CONTIGUOUS ges 
BUCKET STZE 
TI S n 

EXTENSION 1 
GLOBAL _BUFFER_COUNT 0 

ANIZATION indexed 


ORGAN 
PROTECTION (system:RW, owner:RW, group:, world:) 
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RECORD 
BLOCK_SPAN 
CARRIAGE _CONTROL 
FORMAT 


AREA 0 
ALLOCATION 20 
BUCKET_SIZE 
EXTENSION 15 


AREA 1 
ALLOCATION 
BUCKET_SIZE 
EXTENSION 


AREA 2 


; 
ALLOCATION : 
BUCKET SIZE 
EXTENSION 3 
KEY 0 
CHANGES no 
DATA_KEY_ COMPRESSION no 
DATA_RECORD_COMPRESSION yes 
DATA_AREA ' 


DATA FILL 100 
DUPLICATES yes 
INDEX_AREA 
INDEX_ PONPRESS ION no 
INDEX_FILL 100 
LEVELT. INDEX_AREA a 
ML KEY no 
PROLOG 3 
SEGO_LENGTH 8 
SEGO_POSITION 0 
TYPE bin8 
KEY 1 
CHANGES yes 
DATA_KEY_COMPRESSION es 
DATA_AREA y 
DATA_FILL 100 
DUPLICATES yes 
INDEX_AREA 
INDEX FOnPRESS 10m yes 
INDEX_FILL 00 
LEVELT_INDEX_AREA 2. 
NAME 
NULL_KEY es 
SEGO- <VALUE 
SEGO_LENGTH a 


argo. POSITION 
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if $status .ne, 1 then goto convert_error 
= size = f$file ey es(''MAIL.MAI;0"', ‘‘ALQ’') 
= old_size - new ize 
te SypSoutput nota. size = ‘old size’ New size = ''new_size'", - 
aimed ‘‘tmp’ blocks’™ 
delete MAIL.MAI;=-1 
set file/owner=parent MAIL.MAI 
end_loop: 
goto get_username 


Exit command procedure 


exit _procedure: 
close /nolog uaf 
close /nolog vmai 
close /nolog cmdf 
set default ‘def_dev_dir' 
prev_privs = f$setprv(prev_privs) 
old verity = f$verify(old_verify) 
ex 


; Process errors 


no privileges: 
write sys$output ‘ ee | spiitiieges 
write sysSoutput “Requires ‘',REQUIRED_PRIVILEGES,’’ privileges."’ 
oto exit_procedure 


PAAAAAAAAAAHAGKHHHHAHKHHNEON Vw 


write sys$output “User ‘‘username’ not found in UAF"’ 
hon. goto get_username 
ad_spec: 
write sys$Soutput ‘Bad directory specification for user ‘‘username'’' 
gore get_username 


$ no_mail_file: 

$ write sys$output "No mail file for user '‘username'"’ 

$ goto et_username 

$ not_mail_file: 

$ ee sysSoutput ‘File ‘‘mail_dir'MAIL.MAI is not a mail file’ 

$ to get_username 

$ convert_error: 

$ write sys$output ‘Error compressing **mail_dir'MAIL.MAI "', = 
“for user *‘username 

$ oto get. username 

$ cmd_file_eo 

$ c file = 0 

$ close cmdf 

$ goto get_username 

$ no_user: 

$ 

+7 

$ 


pace 
write sysSoutput "No space to compress file of ‘‘old_size’ blocks’ 
goto get_username 
-open oe 
write sysSoutput “Can not open file ‘‘username’. 
cad_file = 0 
goto get_ yaernene 
already_compresSed: a 
write sys$output "MAIL.MA] already compressed 
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hy ‘eon goto get_username 
$ ~ write s s$output "MAIL.MAI too small to compress (''old_size' blocks)."' | 
: fa goto get_username 
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